home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 March / 1985-03.d64 / alpha anx_vic (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  126 lines
  1. 100 ifpeek(44)=18then120
  2. 110 sm=7735:cl=30720:q1=8141:q2=7793:goto130
  3. 120 sm=4151:cl=33792:q1=4557:q2=4209
  4. 130 jc=37154:j1=37151:j2=37152:s1=36874:s2=36876:hs=0
  5. 140 cr$=chr$(19):fori=1to23:cr$=cr$+chr$(17):next
  6. 150 poke36878,15:poke36879,25
  7. 160 for i=1to15
  8. 170 printchr$(28)chr$(147)left$(cr$,9)spc(8)"alpha"
  9. 180 printspc(7)"anxiety"
  10. 190 for j=1to100:next
  11. 200 printchr$(28)chr$(147)left$(cr$,9)spc(8)"alpha"
  12. 210 printspc(7)"anxiety"
  13. 220 for j=1to100: nexti
  14. 230 dimp%(25),rl%(5,5)
  15. 240 gosub1240
  16. 250 rf=0:at=0
  17. 260 dl=150
  18. 270 sc=0:ma=3:poke36879,28
  19. 280 l1=1:l2=1:lc=1:fl=1:po=sm:fg=0
  20. 290 ifrf=1thenlc=25
  21. 300 printchr$(147)
  22. 310 printtab(10)chr$(144)"[176][192][178][192][178][192][178][192][178][192][174]"
  23. 320 for i=1to4:printtab(10)"[221][166][221][166][221][166][221][166][221][166][221]":printtab(10)"[171][192][219][192][219][192][219][192][219][192][179]":next
  24. 330 printtab(10)"[221][166][221][166][221][166][221][166][221][166][221]"
  25. 340 print tab(10) "[173][192][177][192][177][192][177][192][177][192][189]"
  26. 350 print"next":print"letter:":print"[176][192][174]":print"[221] [221]":print"[173][192][189]"
  27. 360 print"time:":print"score:":print"";sc:print"high":print"score:"
  28. 370 print"";hs
  29. 380 ifsc<2499thenpokeq2+cl,5:pokeq2,lc
  30. 390 fori=q1+1toq1+43:pokei+cl,4:next
  31. 400 ti$="000000":cs=102
  32. 410 gosub570
  33. 420 iffg=1then280
  34. 430 ifma=0then480
  35. 440 pokes2,0
  36. 450 tl=dl-int(ti/60)
  37. 451 iftl<=0thentl=0
  38. 460 printleft$(cr$,11)spc(2)tl"[157]  "
  39. 470 iftl>0then410
  40. 480 ifsc>hsthenhs=sc
  41. 490 printleft$(cr$,18)spc(11)"game over!"
  42. 500 pokes1,185:fori=1to300:next:pokes1,0:gosub1240
  43. 510 printchr$(147)"press the fire button"
  44. 520 print"    to play again"
  45. 530 wait37137,32
  46. 540 wait37137,32,32
  47. 550 printchr$(147):fort=1to500:next
  48. 560 goto250
  49. 570 pokejc,127:p=peek(j2)and128
  50. 580 je=-(p=0)
  51. 590 pokejc,255:p=peek(j1)
  52. 600 js=-((pand8)=0)
  53. 610 jw=-((pand16)=0)
  54. 620 jn=-((pand4)=0)
  55. 630 jf=-((pand32)=0)
  56. 640 th=po:t1=l1:t2=l2
  57. 650 ifjfthengosub790:goto720
  58. 660 ifjethenpo=po+2:l1=l1+1:fl=1
  59. 670 ifjsthenpo=po+44:l2=l2+1:fl=1
  60. 680 ifjwthenpo=po-2:l1=l1-1:fl=1
  61. 690 ifjnthenpo=po-44:l2=l2-1:fl=1
  62. 700 iffl=0then780
  63. 710 pokes2,175
  64. 720 iffg=1then780
  65. 730 ifpo<smorpo>sm+207thenpo=th:l1=t1:l2=t2
  66. 740 ifpeek(po+1)=32orpeek(po-1)=32thenpo=th:l1=t1:l2=t2
  67. 750 poketh+cl,0:poketh,cs:cs=peek(po)
  68. 760 pokepo+cl,2:pokepo,rl%(l1,l2)
  69. 770 fl=0
  70. 780 return
  71. 790 ifrl%(l1,l2)=lcthensc=sc+10:goto830
  72. 800 ifrf=1then910
  73. 810 ifrl%(l1,l2)<lcthen940
  74. 820 goto910
  75. 830 pokes2,245:fort=1to25:next:pokes2,0
  76. 840 ifrf=1thenpokeq1+26-lc,lc:goto860
  77. 850 pokeq1+lc,lc
  78. 860 ifrf=1thenlc=lc-1:goto880
  79. 870 lc=lc+1
  80. 880 ifsc>2500then900
  81. 890 iflc<>0thenpokeq2,lc
  82. 900 cs=rl%(l1,l2):goto930
  83. 910 pokes1,250:fort=1to30:next:pokes1,0
  84. 920 dl=dl-10:poke36879,25+ma:goto1230
  85. 930 printleft$(cr$,15)spc(2)sc"[157]  "
  86. 940 ifrf=0then970
  87. 950 iflc<>0then1230
  88. 960 goto980
  89. 970 iflc<>26then1230
  90. 980 ifsc>5000then1040
  91. 990 at=at+dl-tl
  92. 1000 ifsc=5000thendl=int(at/20):goto1090
  93. 1010 iftl<150thendl=tl*2+40:goto1090
  94. 1020 iftl>300thendl=tl*.5:goto1090
  95. 1030 dl=tl
  96. 1040 ifsc=6000thendl=dl-5
  97. 1050 ifsc=7000thendl=dl-5
  98. 1060 ifsc=8000thendl=dl-5
  99. 1070 ifsc=9000thendl=dl-5
  100. 1080 ifsc=10000thendl=dl-5
  101. 1090 fori=1to3
  102. 1100 pokes2,225:fort=1to250:next
  103. 1110 pokes2,0:fort=1to25:next
  104. 1120 nexti
  105. 1130 fori=1to2
  106. 1140 pokes2,231:fort=1to250:next
  107. 1150 pokes2,0:fort=1to25:next
  108. 1160 pokes2,225:fort=1to250:next
  109. 1170 pokes2,0:fort=1to25:next
  110. 1180 nexti
  111. 1190 pokes2,240:fort=1to250:next:pokes2,0
  112. 1200 ifsc>1250thenrf=1
  113. 1210 gosub1240
  114. 1220 fg=1
  115. 1230 return
  116. 1240 fori=1to25:p%(i)=i:next
  117. 1250 fori=1to5
  118. 1260 forj=1to5
  119. 1270 r=int(rnd(1)*25+1)
  120. 1280 ifp%(r)=0then1270
  121. 1290 rl%(i,j)=r
  122. 1300 p%(r)=0
  123. 1310 nextj
  124. 1320 nexti
  125. 1330 return
  126.